home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / THINKC / 4_0 / LIFE6__ / PROTO / P / PUTILS_L.C < prev    next >
Text File  |  1991-08-16  |  5KB  |  141 lines
  1. /*  PUtils_Life6                                                             Utilities
  2.  
  3. File name:  PUtils_Life6.C  
  4. Function:  Utilities for the Prototyper specific code.
  5. History: 8/16/91 Original by Prototyper 3.0   */
  6.  
  7.  
  8.  
  9. #include "PCommonLife6.h"    /* Common */
  10. #include "Common_Life6.h"    /* Common */
  11. #include "PUtils_Life6.h"    /* This file */
  12.  
  13. /* ======================================================= */
  14.  
  15. /* Routine: TrapAvailable */
  16. /* Purpose: See if trap is available, non-available traps all have a unique address */
  17.  
  18. Boolean TrapAvailable (trapNumber,tType)                             /* See if a trap is available */
  19. short    trapNumber;
  20. short    tType;
  21. {
  22.         #define UnimplementedTrapNumber     0xA89F                  /* Unimplemented trap number */
  23.         Boolean    theResult;
  24.  
  25.         theResult = (NGetTrapAddress(trapNumber, tType) != GetTrapAddress(UnimplementedTrapNumber));/* Check the two traps */
  26.         return(theResult);
  27. }
  28.  
  29.  
  30. /* ======================================================= */
  31.  
  32. /* Routine: GetUserEvent */
  33. /* Purpose: See if any user events are available */
  34.  
  35. void GetUserEvent(UserEventPRec TheUserEvent)
  36. { 
  37.         UserEventHRec    NextUserEvent;                                  /* The next user event */
  38.  
  39.         TheUserEvent->ID = UserEvent_None;                             /* Set ID to no events are available */
  40.         if (UserEventList != NIL)                                             /* Get first entry in the list */
  41.             {
  42.                 HLock((Handle)UserEventList);                               /* Lock for safety */
  43.                 TheUserEvent->ID = (*UserEventList)->ID;                 /* The event ID */
  44.                 TheUserEvent->ID2 = (*UserEventList)->ID2;             /* The optional ID */
  45.                 TheUserEvent->Data1 = (*UserEventList)->Data1;/* The optional data */
  46.                 TheUserEvent->Data2 = (*UserEventList)->Data2;/* The optional data */
  47.                 TheUserEvent->theHandle = (*UserEventList)->theHandle;/* The optional handle */
  48.                 NextUserEvent = (*UserEventList)->Next;                 /* The next list */
  49.  
  50.                 DisposHandle((Handle)UserEventList);                       /* Remove this list item */
  51.                 UserEventList = NextUserEvent;                             /* Make the next item the new first item */
  52.             }
  53. }
  54.  
  55.  
  56. /* ======================================================= */
  57.  
  58. /* Routine: Add_UserEvent */
  59. /* Purpose: Add a user event */
  60.  
  61. void Add_UserEvent( ID,  ID2, Data1, Data2,  theHandle)
  62. short        ID;
  63. short        ID2;
  64. long        Data1;
  65. long        Data2;
  66. Handle    theHandle;
  67. { 
  68.         UserEventHRec    NewUserEvent;                                   /* The new user event */
  69.         UserEventHRec    theUserEvent;                                    /* The user event */
  70.  
  71.         NewUserEvent = (UserEventHRec)NewHandle(sizeof(UserEventRec));/* Allocate a record */
  72.         if (NewUserEvent != NIL)                                             /* Only do if we got the new record */
  73.             {
  74.                 HLock((Handle)NewUserEvent);                               /* Lock for safety */
  75.                 (*NewUserEvent)->ID = ID;                                   /* The event ID */
  76.                 (*NewUserEvent)->ID2 = ID2;                                /* The optional ID */
  77.                 (*NewUserEvent)->Data1 = Data1;                          /* The optional data */
  78.                 (*NewUserEvent)->Data2 = Data2;                          /* The optional data */
  79.                 (*NewUserEvent)->theHandle = theHandle;                 /* The optional handle */
  80.                 (*NewUserEvent)->Next = NIL;                              /* No next item after this one */
  81.  
  82.                 if (UserEventList == NIL)                                      /* See if anyone is in the list yet */
  83.                     UserEventList = NewUserEvent;                          /* Make this one the first in the list */
  84.                 else                                                               /* Not the first in the list */
  85.                     {
  86.                         theUserEvent = UserEventList;                         /* Get the first one */
  87.                         while ((*theUserEvent)->Next != NIL)                 /* Get the next one */
  88.                         {
  89.                                 theUserEvent = (*theUserEvent)->Next;
  90.                         }
  91.                         (*theUserEvent)->Next = NewUserEvent;            /* Tack on to the end */
  92.                     }
  93.             }
  94. }
  95.  
  96. /* ======================================================= */
  97.  
  98.  
  99. /* Setup a dialog or alert item */ 
  100. void SetupTheItem( theDialog, ItemID, SizeIt, ShowIt,EnableIt,SetTheMax,thePosition, ExtraData, StringID)
  101. DialogPtr    theDialog;
  102. short        ItemID;
  103. Boolean        SizeIt;
  104. Boolean        ShowIt;
  105. Boolean        EnableIt;
  106. Boolean        SetTheMax;
  107. Rect        *thePosition;
  108. long        ExtraData;
  109. short        StringID;
  110. {
  111.         Rect        tempRect;                                                  /* Temporary rectangle */
  112.         short    DType;                                                         /* Type of dialog item */
  113.         Handle    DItem;                                                        /* Handle to the dialog item */
  114.         ControlHandle    CItem;                                               /* Control handle */
  115.  
  116.         GetDItem(theDialog,ItemID,&DType,&DItem,&tempRect);/* Get the item handle and size */
  117.         CItem = (ControlHandle)DItem;                                     /* Change to control handle */
  118.         if (SizeIt)                                                               /* Have to resize all CDEF connected controls */
  119.             SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  120.         *thePosition = tempRect;                                            /* Pass back the zone location and size */
  121.         if (ExtraData != NIL)                                                  /* See if extra data for a CDEF */
  122.             (*CItem)->contrlData = (Handle)ExtraData;                   /* Send it */
  123.         if (StringID != 0)                                                      /* See if a CDEF and needs the title set again*/
  124.             {
  125.                 GetIndString(sTemp,StringID,1);                             /* Get the string */
  126.                 SetCTitle(CItem,sTemp);                                      /* Set the string */
  127.             }
  128.         if (EnableIt)                                                             /* See if enable or disable the zone */
  129.             HiliteControl (CItem,0);                                          /* Enable the zone */
  130.         else
  131.             HiliteControl (CItem,255);                                       /* Dim the zone */
  132.         if (SetTheMax)
  133.             SetCtlMax(CItem,12345);                                        /* Set the flag to the CDEF */
  134.         if (ShowIt)
  135.             ShowControl(CItem);                                              /* Show it to activate it */
  136.  
  137. }
  138.  
  139. /* ======================================================= */
  140.  
  141.